perm filename TEST.DO[1,3] blob sn#434957 filedate 1979-04-23 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	?\\\	set brick
C00003 ENDMK
CāŠ—;
?\\\;;	set brick;
\NEWLINE.\PRINT."Type something for me to do: "\;;	prompt user;
\INPUT.A\;;	get do string;
\PUSHOUT.B\;;	start output to B;
\"\NEWLINE.\"\PRINT.*OK, I will do \;;	set B to start of a print command;
\INSERT.A*\"\NEWLINE.\;;	insert A, finish print command;
\POPOUT.\;;	return to normal output;
?B\;;	do print command;
?A\;;	do input thing;